home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / games / rosa2 / src / zfunc.s < prev   
Text File  |  1997-09-27  |  705b  |  61 lines
  1. *
  2. *    Ｚ＿ＭｕｓｉＣ制御処理：
  3. *    参考文献：Ｘ６８０００ゲーム・プログラミング（技術評論社）
  4. *
  5.  
  6.  
  7. .include iocscall.mac
  8. .include doscall.mac
  9.  
  10.  
  11. .xdef _FadeOut
  12. .xdef _BgmPlay
  13. .xdef _SePlay
  14. .xdef _BgmStop
  15.  
  16. .offset 4
  17.  
  18. par1:ds.l    1
  19. par2:ds.l    1
  20. par3:ds.l    1
  21. par4:ds.l    1
  22. par5:ds.l    1
  23. par7:ds.l    1
  24. par8:ds.l    1
  25.  
  26.  
  27. .text
  28. .even
  29.  
  30. ztrap macro no
  31.     moveq.l #no,d1
  32.     trap    #3
  33.     endm
  34.  
  35.  
  36. _FadeOut:            * フェード・アウト
  37.     move.l    par1(sp),d2
  38.     ztrap    $1A
  39.     rts
  40.  
  41. _BgmPlay:            * ＢＧＭ演奏
  42.     move.l    par1(sp),d2
  43.     move.l    par2(sp),a1
  44.     lea.l    7(a1),a1
  45.     ztrap    $11
  46.     rts
  47.  
  48. _SePlay:            * 効果音演奏
  49.     move.l    par1(sp),d2
  50.     move.l    par2(sp),a1
  51.     ztrap    $12
  52.     rts
  53.  
  54. _BgmStop:            * 終了
  55.     ztrap    0
  56.     rts
  57.  
  58.  
  59.  
  60. .end
  61.